home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Bus
/
A
/
almanac 1.5 .cpt
/
Almanac v 1.5
/
card_2966.txt
< prev
next >
Wrap
Text File
|
1989-01-02
|
4KB
|
173 lines
-- card: 2966 from stack: in.5
-- bmap block id: 7067
-- flags: 0000
-- background id: 2765
-- name: Card
----- HyperTalk script -----
on elong
go first card
put line 5 of field "Mars RA" of card 2 into sra
put line 6 of field "Mars RA" of card 2 into sdec
repeat with i=3 to 9
set cursor to busy
put (sra - line 5 of field "Mars RA" of card i) into dra
put (sdec - line 6 of field "Mars RA" of card i) into ddec
put (dra+360) mod 360 into arg
if arg>180 then
get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
put "E" into dir
else
get round(sqrt(dra*dra + ddec*ddec))
put "W" into dir
end if
put (short name of card i) & " -- " &it && dir into line i-2 of card field "elong"
end repeat
set cursor to 1
end elong
-- part 2 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=37 top=51 right=67 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sidereal Cheb
-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=129 top=74 right=140 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Coords
-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=245 right=279 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 138
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Algol
-- part 24 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=272 top=164 right=281 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elong
-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=37 top=310 right=331 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update for Today
----- HyperTalk script -----
on mouseUp
global force
put 1 into force
put the seconds into t1
show field "Rem"
repeat with i=2 to 9
put round((the seconds-t1)/1.9) & "%" into field "Rem" of card i
go card i
end repeat
hide field "Rem"
put 0 into force
elong
end mouseUp
-- part contents for card part 2
----- text -----
37.3666434 12.02493549 .00000478 -.00000035 .00000285 .00001539 -.00000356 -.00000655
22.208333
-- part contents for card part 9
----- text -----
33.5
84
103
5.0 (EST)
-- part contents for background part 7
----- text -----
Sidereal Time = 20:40
20.669446
-- part contents for background part 6
----- text -----
Universal Time = 19:28
19.478611
-- part contents for background part 14
----- text -----
Card
-- part contents for background part 28
----- text -----
2 January 1989
-- part contents for background part 31
----- text -----
Julian Date = 2447529.312
-- part contents for card part 23
----- text -----
Next minimum of Algol occurs in 42.1 hours at JD=2447531.065
47531.065
-- part contents for card part 24
----- text -----
Mercury -- 21 E
Venus -- 24 W
Mars -- 101 E
Jupiter -- 137 E
Saturn -- 7 W
Uranus -- 12 W
Neptune -- 3 W
-- part contents for background part 37
----- text -----
1
-- part contents for background part 10
----- text -----